home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Transportation / InventorLabs - Transportation.iso / pc / builders / media / netacess / hminet.dir / 00007_Script_7 < prev    next >
Text File  |  1997-04-04  |  2KB  |  73 lines
  1. on exitFrame
  2.   global WebBrowser
  3.   
  4.   -- 
  5.   -- stay on this frame as long as the installation
  6.   -- program is running.  Otherwise go on to either
  7.   -- launch the web or return to the start
  8.   --
  9.   
  10.   if the machineType = 256 then
  11.     if WebBrowser(mCheckInstall) = 1 then
  12.       go frame the frame
  13.     else
  14.       set installstat = WebBrowser(mGetWebAccess)
  15.       if installstat = 1 then
  16.         --
  17.         -- AOL is the selected browser
  18.         set the text of cast "Status" to "Initiate AOL Launch"
  19.         go "AOLTest"
  20.       else if installstat = 0 then
  21.         --
  22.         -- No access was installed
  23.         set the text of cast "Status" to "Installation Canceled"
  24.         go "Start"
  25.       else
  26.         --
  27.         -- A Web Browser was instaled
  28.         set the text of cast "Status" to "Initiate Web Launch"
  29.         go "Launch"
  30.       end if
  31.     end if
  32.     
  33.   else
  34.     
  35.     --
  36.     -- mac test sequence
  37.     --
  38.     if Browser("InstallerRunning") = 1 then
  39.       go frame the frame
  40.     else
  41.       --
  42.       -- Check to see if AOL is being used
  43.       --
  44.       -- each of the AOLxxxx XFNC methods returns an OSErr
  45.       -- if you get noErr (0), then it's the equivalent of boolean true
  46.       -- for instance:  AOLChosen = 0 means AOL is the chosen browser
  47.       
  48.       put Browser( "AOLChosen" ) into myStatusErr
  49.       if myStatusErr = 0 then
  50.         --
  51.         -- AOL is the selected browser
  52.         set the text of cast "Status" to "Initiate AOL Launch"
  53.         go "AOLTest"
  54.       else
  55.         if Browser("InstallerRunning") = 0 then
  56.           --
  57.           -- A Web Browser was instaled
  58.         set the text of cast "Status" to "Initiate Web Launch"
  59.           go "Launch"
  60.         else
  61.           --
  62.           -- No access was installed
  63.         set the text of cast "Status" to "Installation Canceled"
  64.           go "Start"
  65.         end if
  66.       end if
  67.       
  68.       
  69.     end if -- installer is not running
  70.   end if
  71.   
  72. end
  73.